(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='WolframDesktop 12.1' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       161,          7]
NotebookDataLength[     57872,       1499]
NotebookOptionsPosition[     51054,       1384]
NotebookOutlinePosition[     51588,       1405]
CellTagsIndexPosition[     51545,       1402]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["DVD\:5728\:7ebf\:79df\:8d41\:95ee\:9898\:6570\:5b66\:6a21\:578b", \
"Title",
 CellChangeTimes->{{3.802509231505467*^9, 3.802509236491111*^9}, {
  3.802509535385199*^9, 3.802509604111812*^9}, {3.8027326847252617`*^9, 
  3.8027326881605062`*^9}},ExpressionUUID->"f1798c44-2035-4c05-b39c-\
b16b6ebcb817"],

Cell["      \:4f5c\:8005\:ff1a\:6768\:6c38\:5eb7         \:961f\:4f0d\:ff1a19\
\:961f           \:58f0\:660e \:ff1a \:4ee5\:4e0b\:5168\:90e8\:90fd\:662f\
\:6211\:4e2a\:4eba\:5b8c\:6210", "Text",
 CellChangeTimes->{{3.8027326991045313`*^9, 3.802732727819906*^9}, {
  3.8027327820494947`*^9, 
  3.802732792145446*^9}},ExpressionUUID->"169ad272-b2a0-47bb-83af-\
fd7b95654f53"],

Cell[CellGroupData[{

Cell["\:7b2c\:4e8c\:95ee\:6570\:5b66\:6a21\:578b\:7f16\:7a0b\:6700\:4f18\:5316\
", "Section",
 CellChangeTimes->{{3.8025096615035353`*^9, 
  3.8025096772126513`*^9}},ExpressionUUID->"bfd328f7-39e2-4093-92cc-\
5941a6561773"],

Cell[CellGroupData[{

Cell["\:95ee\:9898\:80cc\:666f", "Subsection",
 CellChangeTimes->{{3.802509712793659*^9, 
  3.802509714970798*^9}},ExpressionUUID->"78c18447-de78-4a17-ac8e-\
d9ec0b44319c"],

Cell["\<\
\:968f\:7740\:4fe1\:606f\:65f6\:4ee3\:7684\:5230\:6765\:ff0c\:7f51\:7edc\:6210\
\:4e3a\:4eba\:4eec\:751f\:6d3b\:4e2d\:8d8a\:6765\:8d8a\:4e0d\:53ef\:6216\:7f3a\
\:7684\:5143\:7d20\:4e4b\:4e00\:3002\:8bb8\:591a\:7f51\:7ad9\:5229\:7528\:5176\
\:5f3a\:5927\:7684\:8d44\:6e90\:548c\:77e5\:540d\:5ea6\:ff0c\:9762\:5411\:5176\
\:4f1a\:5458\:7fa4\:63d0\:4f9b\:65e5\:76ca\:4e13\:4e1a\:5316\:548c\:4fbf\:6377\
\:5316\:7684\:670d\:52a1\:3002\:4f8b\:5982\:ff0c\:97f3\:50cf\:5236\:54c1\:7684\
\:5728\:7ebf\:79df\:8d41\:5c31\:662f\:4e00\:79cd\:53ef\:884c\:7684\:670d\:52a1\
\:3002\:8fd9\:9879\:670d\:52a1\:5145\:5206\:53d1\:6325\:4e86\:7f51\:7edc\:7684\
\:8bf8\:591a\:4f18\:52bf\:ff0c\:5305\:62ec\:4f20\:64ad\:8303\:56f4\:5e7f\:6cdb\
\:3001\:76f4\:8fbe\:6838\:5fc3\:6d88\:8d39\:7fa4\:3001\:5f3a\:70c8\:7684\:4e92\
\:52a8\:6027\:3001\:611f\:5b98\:6027\:5f3a\:3001\:6210\:672c\:76f8\:5bf9\:4f4e\
\:5ec9\:7b49\:ff0c\:4e3a\:987e\:5ba2\:63d0\:4f9b\:66f4\:4e3a\:5468\:5230\:7684\
\:670d\:52a1\:3002

\:8003\:8651\:5982\:4e0b\:7684\:5728\:7ebfDVD\:79df\:8d41\:95ee\:9898\:3002\
\:987e\:5ba2\:7f34\:7eb3\:4e00\:5b9a\:6570\:91cf\:7684\:6708\:8d39\:6210\:4e3a\
\:4f1a\:5458\:ff0c\:8ba2\:8d2dDVD\:79df\:8d41\:670d\:52a1\:3002\:4f1a\:5458\
\:5bf9\:54ea\:4e9bDVD\:6709\:5174\:8da3\:ff0c\:53ea\:8981\:5728\:7ebf\:63d0\
\:4ea4\:8ba2\:5355\:ff0c\:7f51\:7ad9\:5c31\:4f1a\:901a\:8fc7\:5feb\:9012\:7684\
\:65b9\:5f0f\:5c3d\:53ef\:80fd\:6ee1\:8db3\:8981\:6c42\:3002\:4f1a\:5458\:63d0\
\:4ea4\:7684\:8ba2\:5355\:5305\:62ec\:591a\:5f20DVD\:ff0c\:8fd9\:4e9bDVD\:662f\
\:57fa\:4e8e\:5176\:504f\:7231\:7a0b\:5ea6\:6392\:5e8f\:7684\:3002\:7f51\:7ad9\
\:4f1a\:6839\:636e\:624b\:5934\:73b0\:6709\:7684DVD\:6570\:91cf\:548c\:4f1a\
\:5458\:7684\:8ba2\:5355\:8fdb\:884c\:5206\:53d1\:3002\:6bcf\:4e2a\:4f1a\:5458\
\:6bcf\:4e2a\:6708\:79df\:8d41\:6b21\:6570\:4e0d\:5f97\:8d85\:8fc72\:6b21\
\:ff0c\:6bcf\:6b21\:83b7\:5f973\:5f20DVD\:3002\:4f1a\:5458\:770b\:5b8c3\:5f20\
DVD\:4e4b\:540e\:ff0c\:53ea\:9700\:8981\:5c06DVD\:653e\:8fdb\:7f51\:7ad9\:63d0\
\:4f9b\:7684\:4fe1\:5c01\:91cc\:5bc4\:56de\:ff08\:90ae\:8d39\:7531\:7f51\:7ad9\
\:627f\:62c5\:ff09\:ff0c\:5c31\:53ef\:4ee5\:7ee7\:7eed\:4e0b\:6b21\:79df\:8d41\
\:3002\:8bf7\:8003\:8651\:4ee5\:4e0b\:95ee\:9898\:ff1a\
\>", "Text",
 CellChangeTimes->{
  3.802509735434702*^9, {3.802510422694048*^9, 
   3.80251043660266*^9}},ExpressionUUID->"459547db-bd5e-40a4-8379-\
9533194fec92"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:9700\:8981\:89e3\:51b3\:7684\:95ee\:9898", "Subsection",
 CellChangeTimes->{{3.802509765765115*^9, 
  3.802509769488132*^9}},ExpressionUUID->"2dc74b02-d3a4-47d1-9d23-\
d093c1c49956"],

Cell["\<\
2\:ff09\:88682\:4e2d\:5217\:51fa\:4e86\:7f51\:7ad9\:624b\:4e0a100\:79cdDVD\
\:7684\:73b0\:6709\:5f20\:6570\:548c\:5f53\:524d\:9700\:8981\:5904\:7406\:7684\
1000\:4f4d\:4f1a\:5458\:7684\:5728\:7ebf\:8ba2\:5355\:ff08\:88682\:7684\:6570\
\:636e\:683c\:5f0f\:793a\:4f8b\:5982\:4e0b\:88682\:ff0c\:5177\:4f53\:6570\
\:636e\:8bf7\:4ecehttp://mcm.edu.cn/mcm05/problems2005c.asp\:4e0b\:8f7d\:ff09\
\:ff0c\:5982\:4f55\:5bf9\:8fd9\:4e9bDVD\:8fdb\:884c\:5206\:914d\:ff0c\:624d\
\:80fd\:4f7f\:4f1a\:5458\:83b7\:5f97\:6700\:5927\:7684\:6ee1\:610f\:5ea6\:ff1f\
\:8bf7\:5177\:4f53\:5217\:51fa\:524d30\:4f4d\:4f1a\:5458\:ff08\:5373C0001~\
C0030\:ff09\:5206\:522b\:83b7\:5f97\:54ea\:4e9bDVD\:3002\
\>", "Text",
 CellChangeTimes->{{3.8025097848163147`*^9, 3.802509799277594*^9}, {
  3.802510466727076*^9, 
  3.802510467566135*^9}},ExpressionUUID->"fdc90e4f-9b9e-4ea5-9c38-\
b969d7715432"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:5bfc\:5165\:6570\:636e", "Subsection",
 CellChangeTimes->{
  3.802510935587123*^9},ExpressionUUID->"0c4f3cb5-55b8-4147-bcae-\
4142beef34b4"],

Cell["\:7edf\:8ba1\:6570\:636e", "Text",
 CellChangeTimes->{{3.802668318550351*^9, 
  3.8026683199005003`*^9}},ExpressionUUID->"00d2f1fd-c639-428e-b3be-\
adb97ce74fe0"],

Cell[BoxData[
 RowBox[{
  RowBox[{"datastruct", "=", 
   RowBox[{"Flatten", "[", 
    RowBox[{
     RowBox[{"Import", "[", 
      RowBox[{
      "\"\</Users/yangyongkang/Downloads/2005DVD\:5728\:7ebf\:79df\:8d41\:8d5b\
\:9898/DVD  \:9644\:4ef6.xls\>\"", ",", "\"\<Data\>\""}], "]"}], ",", "1"}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.802511432876626*^9, 3.8025115160758133`*^9}, {
  3.802511587400374*^9, 3.80251161427212*^9}},
 CellLabel->"In[2]:=",ExpressionUUID->"f73601e3-4bb6-4faf-be69-2215bf22495e"],

Cell["DVD\:7edf\:8ba1\:6570\:636e", "Text",
 CellChangeTimes->{{3.802668328236834*^9, 
  3.802668331713221*^9}},ExpressionUUID->"a674e36c-7e36-47d3-8af4-\
12bfb5a9b1fc"],

Cell[BoxData[
 RowBox[{
  RowBox[{"DVDCount", "=", 
   RowBox[{
    RowBox[{"datastruct", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"3", ";;"}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.802511618689927*^9, 3.80251161977468*^9}, {
  3.802511650684609*^9, 3.802511675458763*^9}, {3.8025117238628893`*^9, 
  3.802511745390192*^9}},
 CellLabel->"In[3]:=",ExpressionUUID->"e75274c6-c9eb-4532-a744-9e00180f23c8"],

Cell["\:504f\:7231\:5ea6\:6570\:636e", "Text",
 CellChangeTimes->{{3.802668343325678*^9, 
  3.8026683451488333`*^9}},ExpressionUUID->"d2fdc0a4-f015-49f9-91c6-\
f3d8fc9d3d18"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Dissatisfaction", "=", 
   RowBox[{"Map", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"#", "[", 
       RowBox[{"[", 
        RowBox[{"3", ";;"}], "]"}], "]"}], "&"}], ",", 
     RowBox[{"datastruct", "[", 
      RowBox[{"[", 
       RowBox[{"3", ";;"}], "]"}], "]"}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.802511803964275*^9, 3.802511813605418*^9}, {
  3.802511854277794*^9, 3.802511855818006*^9}, {3.802511901619232*^9, 
  3.8025119267285013`*^9}},
 CellLabel->"In[4]:=",ExpressionUUID->"5514e1fe-ca1c-4018-b1b8-d4c4a44ed189"],

Cell[CellGroupData[{

Cell["\:6ee1\:610f\:5ea6\:77e9\:9635", "Subsubsection",
 CellChangeTimes->{{3.802511994261297*^9, 3.802512002072468*^9}, 
   3.80266830287536*^9},ExpressionUUID->"9c3764a0-ba50-4e0c-8182-\
4be4aaf76437"],

Cell["\:5b9a\:4e49\:6ee1\:610f\:5ea6\:77e9\:9635", "Text",
 CellChangeTimes->{{3.802668238830991*^9, 3.8026682489846697`*^9}, 
   3.802668305980186*^9},ExpressionUUID->"8373b782-5fb6-4bee-9822-\
45e61aa1537b"],

Cell[TextData[Cell[BoxData[
 StyleBox[
  SubscriptBox["", 
   RowBox[{
    FormBox[
     SubscriptBox["a", 
      RowBox[{"i", ",", "j"}]],
     TraditionalForm], "=", 
    TagBox[GridBox[{
       {"\[Piecewise]", GridBox[{
          {
           FormBox[
            FractionBox["1", 
             SubscriptBox["b", 
              RowBox[{"i", ",", "j"}]]],
            TraditionalForm], 
           FormBox[
            RowBox[{
             SubscriptBox["b", 
              RowBox[{"i", ",", "j"}]], "\[NotEqual]", "0"}],
            TraditionalForm]},
          {"0", 
           FormBox[
            RowBox[{
             SubscriptBox["b", 
              RowBox[{"i", ",", "j"}]], "\[LongEqual]", "0"}],
            TraditionalForm]}
         },
         AllowedDimensions->{2, Automatic},
         Editable->True,
         GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
         GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.84]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}},
         Selectable->True]}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.35]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     "Piecewise",
     DeleteWithContents->True,
     Editable->False,
     SelectWithContents->True,
     Selectable->False,
     StripWrapperBoxes->True]}]],
  FontSize->24]],
 CellChangeTimes->{{3.8026680601313467`*^9, 
  3.802668204478167*^9}},ExpressionUUID->"053f1866-f862-4a60-b41d-\
fa5af65789a9"]], "Text",
 CellChangeTimes->{
  3.802668221458396*^9},ExpressionUUID->"ae9e54cd-3f0d-4d1e-b652-\
6376c88573aa"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Satisfaction", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Cases", "[", 
       RowBox[{"#", ",", 
        RowBox[{"x_", "\[RuleDelayed]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"x", "\[NotEqual]", "0"}], ",", 
           RowBox[{"1", "/", "x"}], ",", "0"}], "]"}]}]}], "]"}], "&"}], "/@",
      "Dissatisfaction"}], ")"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.802512015574018*^9, 3.8025120356284313`*^9}, {
  3.802512395259305*^9, 3.802512494038463*^9}},
 CellLabel->"In[5]:=",ExpressionUUID->"85f82609-22c3-434f-97e8-61126e9df14c"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:76ee\:6807\:51fd\:6570\:548c\:89c4\:5212\:6761\:4ef6\:7684\:5efa\:7acb\
", "Subsection",
 CellChangeTimes->{{3.802512604385317*^9, 
  3.802512625001855*^9}},ExpressionUUID->"561a7ba4-fe7e-4a8e-85c7-\
9bafe441a284"],

Cell["\<\
\:5e0c\:671b\:5728\:6ee1\:8db3\:6240\:6709\:4f1a\:5458\:90fd\:80fd\:501f\:5230\
3\:5f20DVD\:7684\:524d\:63d0\:4e0b\:ff0c\:518d\:901a\:8fc7\:4f1a\:5458\:603b\
\:6ee1\:610f\:5ea6\:6700\:5927\:6765\:51b3\:5b9a
\:5206\:914d\:65b9\:6848\:3002\:6240\:4ee5\:6211\:4eec\:5efa\:7acb\:6570\:5b66\
\:6a21\:578b\
\>", "Text",
 CellChangeTimes->{{3.802668409050527*^9, 
  3.802668461082576*^9}},ExpressionUUID->"633a15db-d382-4f39-acf4-\
38962e18ec7c"],

Cell["\:76ee\:6807\:51fd\:6570", "Text",
 CellChangeTimes->{{3.8025135066093187`*^9, 
  3.802513515145278*^9}},ExpressionUUID->"cdfc313f-f87b-4709-95f5-\
d88c2c4fee7a"],

Cell[BoxData[
 FormBox[
  StyleBox[
   RowBox[{
    RowBox[{"max", " ", "Z"}], "=", 
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"i", "=", "1"}], "1000"], 
     RowBox[{
      UnderoverscriptBox["\[Sum]", 
       RowBox[{"j", "=", "1"}], "100"], 
      FormBox[
       RowBox[{
        SubscriptBox["a", 
         RowBox[{"i", ",", "j"}]], " ", 
        SubscriptBox["x", 
         RowBox[{"i", ",", "j"}]]}],
       TraditionalForm]}]}]}],
   FontSize->16], TraditionalForm]], "Input",ExpressionUUID->"51e58e25-99b9-\
45aa-8c0b-fd1fbe72ef33"],

Cell["\:89c4\:5212\:6761\:4ef6", "Text",
 CellChangeTimes->{{3.802513546567724*^9, 
  3.802513555712541*^9}},ExpressionUUID->"5b0746ec-7372-4024-b0db-\
a12a6e811137"],

Cell[BoxData[
 FormBox[
  StyleBox[
   RowBox[{
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"i", "=", "1"}], "1000"], 
     SubscriptBox["x", 
      RowBox[{"i", ",", "j"}]]}], "\[LessEqual]", 
    SubscriptBox["w", "j"]}],
   FontSize->18], TraditionalForm]], "Input",ExpressionUUID->"c0017bfd-3f70-\
4998-82bc-ee4edcb9960a"],

Cell[BoxData[
 FormBox[
  StyleBox[
   RowBox[{
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"j", "=", "1"}], "100"], 
     SubscriptBox["x", 
      RowBox[{"i", ",", "j"}]]}], "\[LongEqual]", "3"}],
   FontSize->18], TraditionalForm]], "Input",ExpressionUUID->"f64283dc-d3e5-\
49ab-9ec0-9968cee71fde"],

Cell[BoxData[
 FormBox[
  StyleBox[
   RowBox[{
    RowBox[{
     SubscriptBox["x", 
      RowBox[{"i", ",", "j"}]], "\[LongEqual]", "0"}], "\[Or]", 
    RowBox[{
     SubscriptBox["x", 
      RowBox[{"i", ",", "j"}]], "\[LongEqual]", "1"}]}],
   FontSize->18], TraditionalForm]], "Input",ExpressionUUID->"f4cc5645-37ad-\
4632-8b75-cd8e3d7a2ba1"],

Cell[CellGroupData[{

Cell["\:7ebf\:6027\:89c4\:5212\:6700\:4f18\:5316", "Subsubsection",
 CellChangeTimes->{{3.802561418003557*^9, 
  3.80256145551402*^9}},ExpressionUUID->"cb4c4ad6-52b5-46f6-be85-\
b3ddff621437"],

Cell[BoxData[
 RowBox[{
  RowBox[{"result", "=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "=", 
        RowBox[{
         RowBox[{"Satisfaction", "[", 
          RowBox[{"[", 
           RowBox[{"#1", ",", "#2"}], "]"}], "]"}], "&"}]}], ",", 
       RowBox[{"b", "=", 
        RowBox[{
         RowBox[{"Dissatisfaction", "[", 
          RowBox[{"[", 
           RowBox[{"#1", ",", "#2"}], "]"}], "]"}], "&"}]}], ",", 
       RowBox[{"w", "=", 
        RowBox[{
         RowBox[{"DVDCount", "[", 
          RowBox[{"[", "#", "]"}], "]"}], "&"}]}]}], "}"}], ",", 
     RowBox[{"LinearProgramming", "[", 
      RowBox[{
       RowBox[{"-", 
        RowBox[{"Flatten", "@", 
         RowBox[{"Array", "[", 
          RowBox[{"a", ",", 
           RowBox[{"{", 
            RowBox[{"1000", ",", "100"}], "}"}]}], "]"}]}]}], ",", 
       RowBox[{"SparseArray", "[", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"SparseArray", "[", 
             RowBox[{
              RowBox[{"Table", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"100", "*", 
                   RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}]}], "+", "k"}], "\[Rule]", 
                 "1"}], ",", 
                RowBox[{"{", 
                 RowBox[{"i", ",", "1", ",", "1000"}], "}"}]}], "]"}], ",", 
              RowBox[{"10", "^", "5"}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "1", ",", "100"}], "}"}]}], "]"}], ",", 
          RowBox[{"Table", "[", 
           RowBox[{
            RowBox[{"SparseArray", "[", 
             RowBox[{
              RowBox[{"Table", "[", 
               RowBox[{
                RowBox[{
                 RowBox[{
                  RowBox[{"100", "*", 
                   RowBox[{"(", 
                    RowBox[{"k", "-", "1"}], ")"}]}], "+", "j"}], "\[Rule]", 
                 "1"}], ",", 
                RowBox[{"{", 
                 RowBox[{"j", ",", "1", ",", "100"}], "}"}]}], "]"}], ",", 
              RowBox[{"10", "^", "5"}]}], "]"}], ",", 
            RowBox[{"{", 
             RowBox[{"k", ",", "1", ",", "1000"}], "}"}]}], "]"}]}], "]"}], 
        "]"}], ",", 
       RowBox[{
        RowBox[{"Table", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"w", "[", "j", "]"}], ",", 
            RowBox[{"-", "1"}]}], "}"}], ",", 
          RowBox[{"{", 
           RowBox[{"j", ",", "1", ",", "100"}], "}"}]}], "]"}], "~", "Join", 
        "~", 
        RowBox[{"ConstantArray", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"3", ",", "0"}], "}"}], ",", "1000"}], "]"}]}], ",", 
       RowBox[{"ConstantArray", "[", 
        RowBox[{
         RowBox[{"{", 
          RowBox[{"0", ",", "1"}], "}"}], ",", 
         RowBox[{"10", "^", "5"}]}], "]"}], ",", "Integers"}], "]"}]}], 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.80255707341256*^9, 3.802557079613831*^9}, {
   3.802557139262555*^9, 3.802557291379159*^9}, {3.802557370100054*^9, 
   3.802557387723433*^9}, {3.8025575720497828`*^9, 3.802557586457193*^9}, {
   3.802557701067697*^9, 3.802557741452957*^9}, 3.802557774770052*^9, {
   3.802557914301395*^9, 3.802557917232688*^9}, {3.802558103506063*^9, 
   3.802558109872631*^9}, {3.802558368850625*^9, 3.8025583739692717`*^9}, {
   3.802558553596611*^9, 3.802558588771694*^9}, {3.802558633105739*^9, 
   3.802558633306176*^9}, {3.802558697705803*^9, 3.8025587208733177`*^9}, {
   3.8025587574607353`*^9, 3.802558759723106*^9}, {3.8025590640322523`*^9, 
   3.802559109297721*^9}, 3.8025592362819347`*^9, {3.80255951465132*^9, 
   3.8025595386797523`*^9}, {3.802559624498705*^9, 3.8025596732855167`*^9}, {
   3.802559782412654*^9, 3.802559783526136*^9}, {3.802559903814713*^9, 
   3.802559912987212*^9}, {3.802561992624971*^9, 3.802561998763276*^9}, 
   3.802649435702258*^9, {3.802654973497677*^9, 3.802654978292284*^9}, {
   3.80265501009221*^9, 3.80265502305128*^9}, {3.802655149095044*^9, 
   3.80265515166407*^9}, {3.8026552020988817`*^9, 3.802655278698628*^9}, {
   3.8026554122997007`*^9, 3.802655449199812*^9}, {3.802655485035851*^9, 
   3.802655489454692*^9}, {3.802655601997731*^9, 3.802655613903555*^9}, {
   3.802655658779771*^9, 3.802655660732565*^9}, {3.802655693836183*^9, 
   3.802655843335187*^9}, {3.80265592665482*^9, 3.802655929306549*^9}, {
   3.802656119104333*^9, 3.8026561466388683`*^9}, {3.802656177364205*^9, 
   3.802656192664679*^9}, {3.802656254072895*^9, 3.802656344285984*^9}},
 CellLabel->"In[44]:=",ExpressionUUID->"d6a8d43b-54d7-46ef-9161-2aaa3f4bbf22"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:6700\:5927\:6ee1\:610f\:5ea6", "Subsection",
 CellChangeTimes->{{3.802668883032689*^9, 
  3.802668892042673*^9}},ExpressionUUID->"6569e985-c97c-40fa-bc05-\
f03d8d47d878"],

Cell["\:8fd0\:7528Wolfram\:8bed\:8a00\:7f16\:7a0b\:5f97\:5230\:6700\:5927\
\:6ee1\:610f\:5ea6Z", "Text",
 CellChangeTimes->{{3.802668931499463*^9, 3.80266894889821*^9}, 
   3.802671737700822*^9},ExpressionUUID->"c8bbb686-f527-402b-81fc-\
67d1d274f82d"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"Z", "==", 
   RowBox[{
    RowBox[{"Flatten", "[", 
     RowBox[{"Array", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Satisfaction", "[", 
         RowBox[{"[", 
          RowBox[{"#1", ",", "#2"}], "]"}], "]"}], "&"}], ",", 
       RowBox[{"{", 
        RowBox[{"1000", ",", "100"}], "}"}]}], "]"}], "]"}], ".", 
    RowBox[{"result", "[", 
     RowBox[{"[", 
      RowBox[{";;", 
       RowBox[{"10", "^", "5"}]}], "]"}], "]"}]}]}], "//", 
  "TraditionalForm"}]], "Input",
 CellChangeTimes->{{3.802671656602592*^9, 3.802671732436886*^9}},
 CellLabel->"In[62]:=",ExpressionUUID->"b640bfe1-0269-471f-9283-f1849e854245"],

Cell[BoxData[
 FormBox[
  RowBox[{"Z", "\[LongEqual]", "1634.8853174603173`"}], 
  TraditionalForm]], "Output",
 CellChangeTimes->{{3.8026717091519403`*^9, 3.8026717330161448`*^9}},
 CellLabel->
  "Out[62]//TraditionalForm=",ExpressionUUID->"ecd1edfc-25c9-45b7-80f3-\
f74e184cfb59"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:524d30\:4f4d\:4f1a\:5458\:5206\:522b\:83b7\:5f97DVD\:8868\:683c", \
"Subsection",
 CellChangeTimes->{{3.802568132380391*^9, 
  3.802568146075539*^9}},ExpressionUUID->"ac46fcbc-17e7-4cc9-a606-\
e73d97a64194"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"Prepend", "[", 
    RowBox[{
     RowBox[{"MapThread", "[", 
      RowBox[{
       RowBox[{
        RowBox[{"Prepend", "[", 
         RowBox[{"#1", ",", "#2"}], "]"}], "&"}], ",", 
       RowBox[{"{", 
        RowBox[{
         RowBox[{
          RowBox[{
           RowBox[{
            RowBox[{"#2", "&"}], "@@@", "#"}], "&"}], "/@", 
          RowBox[{"Gather", "[", 
           RowBox[{
            RowBox[{"Cases", "[", 
             RowBox[{
              RowBox[{"Normal", "@", 
               RowBox[{"AssociationThread", "[", 
                RowBox[{
                 RowBox[{"Flatten", "@", 
                  RowBox[{"Array", "[", 
                   RowBox[{"x", ",", 
                    RowBox[{"{", 
                    RowBox[{"30", ",", "100"}], "}"}]}], "]"}]}], ",", 
                 RowBox[{"result", "[", 
                  RowBox[{"[", 
                   RowBox[{";;", 
                    RowBox[{"30", "*", "100"}]}], "]"}], "]"}]}], "]"}]}], 
              ",", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{
                 RowBox[{"x", "[", 
                  RowBox[{"i_", ",", "j_"}], "]"}], "\[Rule]", 
                 RowBox[{"k_", "/;", 
                  RowBox[{"k", "\[Equal]", "1"}]}]}], ")"}], "\[RuleDelayed]", 
               RowBox[{"{", 
                RowBox[{"i", ",", "j"}], "}"}]}]}], "]"}], ",", 
            RowBox[{
             RowBox[{
              RowBox[{"First", "@", "#1"}], "\[Equal]", 
              RowBox[{"First", "@", "#2"}]}], "&"}]}], "]"}]}], ",", 
         RowBox[{"Table", "[", 
          RowBox[{
           RowBox[{"\"\<C00\>\"", "<>", 
            RowBox[{"If", "[", 
             RowBox[{
              RowBox[{"i", "\[LessEqual]", "9"}], ",", 
              RowBox[{"\"\<0\>\"", "<>", 
               RowBox[{"ToString", "[", "i", "]"}]}], ",", 
              RowBox[{"ToString", "[", "i", "]"}]}], "]"}]}], ",", 
           RowBox[{"{", 
            RowBox[{"i", ",", "30"}], "}"}]}], "]"}]}], "}"}]}], "]"}], ",", 
     RowBox[{"{", 
      RowBox[{
      "\"\<\:987e\:5ba2\:7f16\:53f7\>\"", ",", "\"\<DVD\:7f16\:53f71\>\"", 
       ",", "\"\<DVD\:7f16\:53f72\>\"", ",", "\"\<DVD\:7f16\:53f73\>\""}], 
      "}"}]}], "]"}], ",", 
   RowBox[{"Background", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"None", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Lighter", "[", 
         RowBox[{"Yellow", ",", ".9"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"White", ",", 
          RowBox[{"Lighter", "[", 
           RowBox[{
            RowBox[{"Blend", "[", 
             RowBox[{"{", 
              RowBox[{"Blue", ",", "Green"}], "}"}], "]"}], ",", ".8"}], 
           "]"}]}], "}"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Dividers", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Darker", "[", 
         RowBox[{"Gray", ",", ".6"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"Lighter", "[", 
          RowBox[{"Gray", ",", ".5"}], "]"}], "}"}], ",", 
        RowBox[{"Darker", "[", 
         RowBox[{"Gray", ",", ".6"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Darker", "[", 
         RowBox[{"Gray", ",", ".6"}], "]"}], ",", 
        RowBox[{"Darker", "[", 
         RowBox[{"Gray", ",", ".6"}], "]"}], ",", 
        RowBox[{"{", "False", "}"}], ",", 
        RowBox[{"Darker", "[", 
         RowBox[{"Gray", ",", ".6"}], "]"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Alignment", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"Left", ",", "Right", ",", 
       RowBox[{"{", "Left", "}"}]}], "}"}], "}"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", 
    RowBox[{"Darker", "[", 
     RowBox[{"Gray", ",", ".6"}], "]"}]}], ",", 
   RowBox[{"ItemStyle", "\[Rule]", "14"}], ",", 
   RowBox[{"Spacings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", ".8"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.80256201745945*^9, 3.802562264018681*^9}, {
  3.802562301271965*^9, 3.802562309283184*^9}, {3.802562339357168*^9, 
  3.802562343436359*^9}, {3.802562438075939*^9, 3.8025625657282343`*^9}, {
  3.802562609975894*^9, 3.8025626481841908`*^9}, {3.802565832653998*^9, 
  3.8025658346876163`*^9}, {3.8025673691519613`*^9, 3.8025673948944387`*^9}, {
  3.802567529448257*^9, 3.802567599228982*^9}, {3.802567722646353*^9, 
  3.802567836945382*^9}, {3.802567927226458*^9, 3.8025679293582563`*^9}, {
  3.802568001410224*^9, 3.802568065862287*^9}, {3.8025683373883867`*^9, 
  3.8025683381806993`*^9}},
 CellLabel->"In[45]:=",ExpressionUUID->"314139b8-d190-423b-b2bf-4f02930e9a2c"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"\:987e\:5ba2\:7f16\:53f7\"\>", "\<\"DVD\:7f16\:53f71\"\>", "\<\"DVD\
\:7f16\:53f72\"\>", "\<\"DVD\:7f16\:53f73\"\>"},
    {"\<\"C0001\"\>", "8", "41", "98"},
    {"\<\"C0002\"\>", "6", "44", "62"},
    {"\<\"C0003\"\>", "32", "50", "80"},
    {"\<\"C0004\"\>", "7", "18", "41"},
    {"\<\"C0005\"\>", "11", "66", "68"},
    {"\<\"C0006\"\>", "19", "53", "66"},
    {"\<\"C0007\"\>", "8", "26", "81"},
    {"\<\"C0008\"\>", "31", "35", "71"},
    {"\<\"C0009\"\>", "53", "78", "100"},
    {"\<\"C0010\"\>", "55", "60", "85"},
    {"\<\"C0011\"\>", "59", "63", "66"},
    {"\<\"C0012\"\>", "2", "31", "41"},
    {"\<\"C0013\"\>", "21", "78", "96"},
    {"\<\"C0014\"\>", "23", "52", "89"},
    {"\<\"C0015\"\>", "13", "66", "85"},
    {"\<\"C0016\"\>", "55", "84", "97"},
    {"\<\"C0017\"\>", "47", "51", "67"},
    {"\<\"C0018\"\>", "41", "60", "78"},
    {"\<\"C0019\"\>", "66", "84", "86"},
    {"\<\"C0020\"\>", "45", "61", "89"},
    {"\<\"C0021\"\>", "45", "50", "53"},
    {"\<\"C0022\"\>", "38", "55", "57"},
    {"\<\"C0023\"\>", "29", "81", "95"},
    {"\<\"C0024\"\>", "37", "41", "76"},
    {"\<\"C0025\"\>", "9", "69", "81"},
    {"\<\"C0026\"\>", "22", "68", "95"},
    {"\<\"C0027\"\>", "50", "58", "78"},
    {"\<\"C0028\"\>", "8", "26", "34"},
    {"\<\"C0029\"\>", "26", "30", "55"},
    {"\<\"C0030\"\>", "37", "62", "98"}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {Left, Right, {Left}}},
   GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {
       RGBColor[1., 1., 0.9], {
        GrayLevel[1], 
        RGBColor[0.8, 0.9, 0.9]}}},
   GridBoxDividers->{"Columns" -> {
       RGBColor[0.2, 0.2, 0.2], {
        RGBColor[0.75, 0.75, 0.75]}, 
       RGBColor[0.2, 0.2, 0.2]}, "Rows" -> {
       RGBColor[0.2, 0.2, 0.2], 
       RGBColor[0.2, 0.2, 0.2], {False}, 
       RGBColor[0.2, 0.2, 0.2]}},
   GridBoxFrame->{
    "ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> RGBColor[0.2, 0.2, 0.2]}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxItemStyle->{"Columns" -> {{14}}, "Rows" -> {{14}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{0.8}}}],
  "Grid"]], "Output",
 CellChangeTimes->{
  3.802562030236212*^9, 3.802562098343669*^9, {3.8025621481564703`*^9, 
   3.802562191000799*^9}, {3.802562256187626*^9, 3.8025622653544807`*^9}, 
   3.802562302251012*^9, 3.8025623441615353`*^9, {3.802562441693709*^9, 
   3.802562475762794*^9}, {3.802562528106737*^9, 3.8025625668515577`*^9}, {
   3.802562613368227*^9, 3.802562648873931*^9}, 3.802565835359906*^9, {
   3.802567585296344*^9, 3.802567599775234*^9}, 3.802567724435463*^9, 
   3.8025677584859962`*^9, 3.802567837941794*^9, 3.802567930159254*^9, {
   3.802568008154522*^9, 3.8025680662635183`*^9}, 3.802568339024473*^9, 
   3.8026494528836517`*^9, 3.802656271458012*^9, 3.802657933824256*^9},
 CellLabel->"Out[45]=",ExpressionUUID->"ed98dd0e-938a-498a-8baf-588fbe54bd8c"]
}, Open  ]]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:7b2c\:4e09\:95ee\:6570\:5b66\:6a21\:578b\:7f16\:7a0b\:6700\:4f18\:5316\
", "Section",
 CellChangeTimes->{{3.802570313062327*^9, 
  3.8025703170027227`*^9}},ExpressionUUID->"81171a93-f0bc-4c89-ad9e-\
270061b8cc03"],

Cell["\<\
\:95ee\:9898\:ff1a3\:ff09\:7ee7\:7eed\:8003\:8651\:88682\:ff0c\:5e76\:5047\
\:8bbe\:88682\:4e2dDVD\:7684\:73b0\:6709\:6570\:91cf\:5168\:90e8\:4e3a0\:3002\
\:5982\:679c\:4f60\:662f\:7f51\:7ad9\:7ecf\:8425\:7ba1\:7406\:4eba\:5458\:ff0c\
\:4f60\:5982\:4f55\:51b3\:5b9a\:6bcf\:79cdDVD\:7684\:8d2d\:4e70\:91cf\:ff0c\
\:4ee5\:53ca\:5982\:4f55\:5bf9\:8fd9\:4e9bDVD\:8fdb\:884c\:5206\:914d\:ff0c\
\:624d\:80fd\:4f7f\:4e00\:4e2a\:6708\:518595%\:7684\:4f1a\:5458\:5f97\:5230\
\:4ed6\:60f3\:770b\:7684DVD\:ff0c\:5e76\:4e14\:6ee1\:610f\:5ea6\:6700\:5927\
\:ff1f\
\>", "Text",
 CellChangeTimes->{{3.802570661647519*^9, 
  3.8025706633897133`*^9}},ExpressionUUID->"bc735145-d566-4e58-8500-\
0fef2f2bc677"],

Cell["\:91cd\:65b0\:5b9a\:4e49\:6ee1\:610f\:5ea6\:77e9\:9635", "Text",
 CellChangeTimes->{{3.8026781145072117`*^9, 
  3.802678126224132*^9}},ExpressionUUID->"82443ee0-cb05-49bf-9535-\
0a0a7275862f"],

Cell[BoxData[
 StyleBox[
  SubscriptBox["", 
   RowBox[{
    FormBox[
     SubscriptBox["a", 
      RowBox[{"i", ",", "j"}]],
     TraditionalForm], "=", 
    TagBox[GridBox[{
       {"\[Piecewise]", GridBox[{
          {
           FormBox[
            RowBox[{"10", "-", 
             SubscriptBox["b", 
              RowBox[{"i", ",", "j"}]]}],
            TraditionalForm], 
           FormBox[
            RowBox[{
             SubscriptBox["b", 
              RowBox[{"i", ",", "j"}]], "\[NotEqual]", "0"}],
            TraditionalForm]},
          {"0", 
           FormBox[
            RowBox[{
             SubscriptBox["b", 
              RowBox[{"i", ",", "j"}]], "\[LongEqual]", "0"}],
            TraditionalForm]}
         },
         AllowedDimensions->{2, Automatic},
         Editable->True,
         GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
         GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
         GridBoxSpacings->{"Columns" -> {
             Offset[0.27999999999999997`], {
              Offset[0.84]}, 
             Offset[0.27999999999999997`]}, "Rows" -> {
             Offset[0.2], {
              Offset[0.4]}, 
             Offset[0.2]}},
         Selectable->True]}
      },
      GridBoxAlignment->{"Columns" -> {{Left}}, "Rows" -> {{Baseline}}},
      GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{1.}}},
      GridBoxSpacings->{"Columns" -> {
          Offset[0.27999999999999997`], {
           Offset[0.35]}, 
          Offset[0.27999999999999997`]}, "Rows" -> {
          Offset[0.2], {
           Offset[0.4]}, 
          Offset[0.2]}}],
     "Piecewise",
     DeleteWithContents->True,
     Editable->False,
     SelectWithContents->True,
     Selectable->False,
     StripWrapperBoxes->True]}]],
  FontSize->24]], "Input",
 CellChangeTimes->{{3.802678144499495*^9, 
  3.802678154175481*^9}},ExpressionUUID->"d6047b9d-0bb5-46bf-b34c-\
69256b254b60"],

Cell[BoxData[
 RowBox[{
  RowBox[{"Satisfaction1", "=", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{
      RowBox[{"Cases", "[", 
       RowBox[{"#", ",", 
        RowBox[{"x_", "\[RuleDelayed]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{"x", "\[NotEqual]", "0"}], ",", 
           RowBox[{"10", "-", "x"}], ",", "0"}], "]"}]}]}], "]"}], "&"}], "/@",
      "Dissatisfaction"}], ")"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.80267817408879*^9, 3.802678178425579*^9}},
 CellLabel->"In[75]:=",ExpressionUUID->"af2290ab-07ad-453d-a326-15f8fdf8828e"],

Cell["\:76ee\:6807\:51fd\:6570", "Text",
 CellChangeTimes->{
  3.8026741144937763`*^9},ExpressionUUID->"f40b7c90-6aad-4d97-b6f4-\
a597dc04576e"],

Cell[BoxData[
 FormBox[
  StyleBox[
   RowBox[{"Z", "=", 
    RowBox[{
     RowBox[{"max", " ", 
      SubscriptBox["c", "1"], " ", 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"i", "=", "1"}], "1000"], 
       RowBox[{
        UnderoverscriptBox["\[Sum]", 
         RowBox[{"j", "=", "1"}], "100"], 
        RowBox[{
         SubscriptBox["a", 
          RowBox[{"i", ",", "j"}]], " ", 
         SubscriptBox["x", 
          RowBox[{"i", ",", "j"}]]}]}]}]}], "-", 
     RowBox[{
      SubscriptBox["c", "2"], " ", 
      RowBox[{
       UnderoverscriptBox["\[Sum]", 
        RowBox[{"j", "=", "1"}], "100"], 
       SubscriptBox["d", "j"]}]}]}]}],
   FontSize->16], TraditionalForm]], "Input",ExpressionUUID->"15aa3e11-18a2-\
4473-9a69-262c830894b2"],

Cell["\:7ea6\:675f\:51fd\:6570", "Text",
 CellChangeTimes->{{3.802677056573803*^9, 
  3.802677067061322*^9}},ExpressionUUID->"dded381b-57a6-4ccb-9838-\
568230a287e7"],

Cell[BoxData[
 FormBox[
  StyleBox[
   RowBox[{
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"j", "=", "1"}], "100"], 
     SubscriptBox["x", 
      RowBox[{"i", ",", "j"}]]}], "=", "3"}],
   FontSize->16], TraditionalForm]], "Input",ExpressionUUID->"f9735bd8-e7cc-\
41e6-a636-d99c86ac95d0"],

Cell[BoxData[
 FormBox[
  StyleBox[
   RowBox[{
    RowBox[{
     UnderoverscriptBox["\[Sum]", 
      RowBox[{"i", "=", "1"}], "1000"], 
     SubscriptBox["x", 
      RowBox[{"i", ",", "j"}]]}], "\[LessEqual]", 
    SubscriptBox["d", "j"]}],
   FontSize->16], TraditionalForm]], "Input",ExpressionUUID->"ea390613-ccf4-\
46e0-a228-8f457797b649"],

Cell[BoxData[
 FormBox[
  StyleBox[
   RowBox[{
    RowBox[{"1.6", 
     SubscriptBox["d", "j"]}], "\[GreaterEqual]", 
    RowBox[{"0.95", "*", "100", "*", 
     SubscriptBox["p", "j"]}]}],
   FontSize->16], TraditionalForm]], "Input",ExpressionUUID->"fb23ed6d-17e8-\
4347-aece-8e1a7ac6cfb3"],

Cell[BoxData[
 FormBox[
  StyleBox[
   RowBox[{
    SubscriptBox["x", 
     RowBox[{"i", ",", "j"}]], "\[LessEqual]", 
    SubscriptBox["b", 
     RowBox[{"i", ",", "j"}]]}],
   FontSize->18], TraditionalForm]], "Input",ExpressionUUID->"3b7c3624-5d5f-\
46fa-9446-930c8e3e7705"],

Cell[BoxData[
 FormBox[
  StyleBox[
   RowBox[{
    RowBox[{
     SubscriptBox["x", 
      RowBox[{"i", ",", "j"}]], "\[LongEqual]", "0"}], "\[Or]", 
    RowBox[{
     SubscriptBox["x", 
      RowBox[{"i", ",", "j"}]], "\[LongEqual]", "1"}]}],
   FontSize->18], TraditionalForm]], "Input",ExpressionUUID->"3487b384-2bcc-\
452d-af69-8662bbbf3488"],

Cell[BoxData[
 FormBox[
  StyleBox[
   RowBox[{
    SubscriptBox["d", "j"], "\[Element]", "Z"}],
   FontSize->14], TraditionalForm]], "Input",
 CellChangeTimes->{{3.8026774520193453`*^9, 
  3.80267746495452*^9}},ExpressionUUID->"713672c5-40e7-4a0c-8901-\
cea9c2b7fbe3"],

Cell[CellGroupData[{

Cell["\:7ebf\:6027\:89c4\:5212\:6700\:4f18\:5316", "Subsection",
 CellChangeTimes->{
  3.802677507355644*^9},ExpressionUUID->"e0844a20-db2c-4da0-af66-\
8dce7aab2bf4"],

Cell[BoxData[
 RowBox[{
  RowBox[{"NeedList", "=", 
   RowBox[{
    RowBox[{"SortBy", "[", 
     RowBox[{
      RowBox[{"Normal", "@", 
       RowBox[{"Counts", "@", 
        RowBox[{"Flatten", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"Position", "[", 
            RowBox[{"#", ",", 
             RowBox[{"x_", "/;", 
              RowBox[{"x", ">", "0"}]}]}], "]"}], "&"}], "/@", 
          "Satisfaction"}], "]"}]}]}], ",", "First"}], "]"}], "[", 
    RowBox[{"[", 
     RowBox[{"All", ",", "2"}], "]"}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.8025749910867443`*^9, 3.802575176071163*^9}, {
  3.802575226237419*^9, 3.802575271093081*^9}},
 CellLabel->"In[6]:=",ExpressionUUID->"d9cf0bad-e0a3-4ea7-927a-3c567d44a503"],

Cell[BoxData[
 RowBox[{
  RowBox[{"clist", "=", 
   RowBox[{
    RowBox[{"Function", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"a", ",", "b"}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        FractionBox["b", 
         RowBox[{"a", "+", "b"}]], ",", 
        FractionBox["a", 
         RowBox[{"a", "+", "b"}]]}], "}"}]}], "]"}], "[", 
    RowBox[{
     RowBox[{"33000", "/", "2"}], ",", 
     FractionBox[
      RowBox[{
       RowBox[{"Total", "[", 
        RowBox[{"NeedList", "*", 
         RowBox[{"0.95", "/", "1.6"}]}], "]"}], "+", 
       RowBox[{"Total", "@", "NeedList"}]}], "2"]}], "]"}]}], ";"}]], "Input",\

 CellChangeTimes->{{3.802677719656049*^9, 3.802677725505175*^9}},
 CellLabel->"In[67]:=",ExpressionUUID->"cb49e17a-0c4f-4aa6-b865-70336789ba93"],

Cell[BoxData[
 RowBox[{
  RowBox[{"result1", "=", 
   RowBox[{"Block", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"a", "=", 
        RowBox[{
         RowBox[{"Satisfaction1", "[", 
          RowBox[{"[", 
           RowBox[{"#1", ",", "#2"}], "]"}], "]"}], "&"}]}], ",", 
       RowBox[{"b", "=", 
        RowBox[{
         RowBox[{"Dissatisfaction", "[", 
          RowBox[{"[", 
           RowBox[{"#1", ",", "#2"}], "]"}], "]"}], "&"}]}], ",", 
       RowBox[{"w", "=", 
        RowBox[{
         RowBox[{"DVDCount", "[", 
          RowBox[{"[", "#", "]"}], "]"}], "&"}]}], ",", 
       RowBox[{"c", "=", 
        RowBox[{
         RowBox[{"clist", "[", 
          RowBox[{"[", "#", "]"}], "]"}], "&"}]}], ",", 
       RowBox[{"m", "=", "1000"}], ",", 
       RowBox[{"n", "=", "100"}]}], "}"}], ",", 
     RowBox[{"LinearProgramming", "@@", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"-", 
            RowBox[{"c", "[", "1", "]"}]}], "*", 
           RowBox[{"Flatten", "@", 
            RowBox[{"Array", "[", 
             RowBox[{"a", ",", 
              RowBox[{"{", 
               RowBox[{"m", ",", "n"}], "}"}]}], "]"}]}]}], ",", 
          RowBox[{"ConstantArray", "[", 
           RowBox[{
            RowBox[{"c", "[", "2", "]"}], ",", "n"}], "]"}]}], "]"}], ",", 
        RowBox[{"SparseArray", "@", 
         RowBox[{"Join", "[", 
          RowBox[{
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"SparseArray", "[", 
              RowBox[{
               RowBox[{"Table", "[", 
                RowBox[{
                 RowBox[{
                  RowBox[{
                   RowBox[{"n", "*", 
                    RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}]}], "+", "j"}], "\[Rule]", 
                  "1"}], ",", 
                 RowBox[{"{", 
                  RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}], ",", 
               RowBox[{
                RowBox[{"m", "*", "n"}], "+", "n"}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"i", ",", "1", ",", "m"}], "}"}]}], "]"}], ",", 
           RowBox[{"Table", "[", 
            RowBox[{
             RowBox[{"SparseArray", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"Table", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"i", "-", "1"}], ")"}], "*", "n"}], "+", "j"}], 
                   "\[Rule]", "1"}], ",", 
                  RowBox[{"{", 
                   RowBox[{"i", ",", "1", ",", "m"}], "}"}]}], "]"}], "~", 
                "Join", "~", 
                RowBox[{"{", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"m", "*", "n"}], "+", "j"}], "\[Rule]", 
                  RowBox[{"-", "1"}]}], "}"}]}], ",", 
               RowBox[{
                RowBox[{"10", "^", "5"}], "+", "100"}]}], "]"}], ",", 
             RowBox[{"{", 
              RowBox[{"j", ",", "1", ",", "n"}], "}"}]}], "]"}]}], "]"}]}], 
        ",", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"ConstantArray", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"3", ",", "0"}], "}"}], ",", "m"}], "]"}], ",", 
          RowBox[{"ConstantArray", "[", 
           RowBox[{
            RowBox[{"{", 
             RowBox[{"0", ",", 
              RowBox[{"-", "1"}]}], "}"}], ",", "n"}], "]"}]}], "]"}], ",", 
        RowBox[{"Join", "[", 
         RowBox[{
          RowBox[{"Flatten", "[", 
           RowBox[{
            RowBox[{"Table", "[", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"a", "[", 
                    RowBox[{"i", ",", "j"}], "]"}], "\[NotEqual]", "0"}], ",",
                   "1", ",", "0"}], "]"}]}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"i", ",", "m"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"j", ",", "n"}], "}"}]}], "]"}], ",", "1"}], "]"}], 
          ",", 
          RowBox[{"(", 
           RowBox[{
            RowBox[{
             RowBox[{"MapThread", "[", 
              RowBox[{
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"#1", ",", "#2"}], "}"}], "&"}], ",", 
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"#", "*", 
                  RowBox[{"0.95", "/", "1.6"}]}], ",", "#"}], "}"}]}], "]"}], 
             "&"}], "@", "NeedList"}], ")"}]}], "]"}], ",", "Integers"}], 
       "}"}]}]}], "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.80258725038037*^9, 3.80258733325299*^9}, 
   3.802587580904546*^9, {3.8025879219392443`*^9, 3.8025879245178022`*^9}, {
   3.8025886091441936`*^9, 3.802588617856833*^9}, {3.802588652323613*^9, 
   3.802588655055057*^9}, 3.8025887837810698`*^9, {3.802589818159728*^9, 
   3.802589822062398*^9}, 3.802590325921226*^9, {3.802590383475791*^9, 
   3.8025903843559647`*^9}, {3.8025905219379587`*^9, 
   3.8025905509988937`*^9}, {3.802591093086032*^9, 3.8025911068403797`*^9}, {
   3.802591840515574*^9, 3.802591864552145*^9}, 3.8025943588937187`*^9, {
   3.80263550879506*^9, 3.802635526262403*^9}, {3.80263555955753*^9, 
   3.8026356336785393`*^9}, {3.802644618501465*^9, 3.8026446196809893`*^9}, {
   3.802645450138155*^9, 3.8026454968741407`*^9}, {3.802645538735466*^9, 
   3.802645542618753*^9}, {3.8026463230513067`*^9, 3.802646331489064*^9}, {
   3.802647765107965*^9, 3.802647767808298*^9}, 3.80264793342457*^9, {
   3.802647978342905*^9, 3.8026480326952057`*^9}, {3.802648229264943*^9, 
   3.802648263510621*^9}, 3.802648368322742*^9, {3.802648863129916*^9, 
   3.8026488809109373`*^9}, {3.802648925348361*^9, 3.802648925664776*^9}, {
   3.802653855917329*^9, 3.8026538980604153`*^9}, {3.80265454541921*^9, 
   3.8026545547049513`*^9}, {3.802655579263332*^9, 3.802655581081848*^9}, {
   3.802658005603812*^9, 3.802658014980679*^9}, {3.802658053506317*^9, 
   3.802658053663673*^9}, {3.802658086742948*^9, 3.802658098824923*^9}, {
   3.802658133169736*^9, 3.802658148067206*^9}, {3.80266443493079*^9, 
   3.802664464463833*^9}, {3.8026644963321857`*^9, 3.8026645045226088`*^9}, {
   3.802664560943266*^9, 3.802664561890239*^9}, {3.802664602621015*^9, 
   3.802664686585559*^9}, {3.802664951425572*^9, 3.8026649546356497`*^9}, {
   3.802664984813184*^9, 3.802665031703452*^9}, {3.802665159057982*^9, 
   3.80266517745891*^9}, 3.802665210976862*^9, {3.80266543975301*^9, 
   3.802665442935061*^9}, {3.802665553573444*^9, 3.802665554483856*^9}, {
   3.802667121097931*^9, 3.8026671219496593`*^9}, {3.802667620457255*^9, 
   3.8026676301403008`*^9}, {3.802677529507069*^9, 3.802677613891679*^9}, {
   3.8026777317518272`*^9, 3.802677732738636*^9}, {3.802677914352004*^9, 
   3.802677916926838*^9}, {3.8026779894157047`*^9, 3.802677992001225*^9}, 
   3.8026781927310343`*^9, {3.802678264435817*^9, 3.802678288955146*^9}},
 CellLabel->"In[82]:=",ExpressionUUID->"ff87d402-b50a-4690-b492-4aa285e1c6f9"]
}, Open  ]],

Cell[CellGroupData[{

Cell["\:6700\:5927\:6ee1\:610f\:5ea6", "Subsection",
 CellChangeTimes->{
  3.8026777743628387`*^9},ExpressionUUID->"5cd0933a-bf53-4687-aa2d-\
d2f7d737aee0"],

Cell["\:8fd0\:7528Wolfram\:8bed\:8a00\:7f16\:7a0b\:5f97\:5230\:6700\:5927\
\:6ee1\:610f\:5ea6Z", "Text",
 CellChangeTimes->{
  3.802677807249784*^9},ExpressionUUID->"d6087b1d-ea2b-4c20-8e4b-\
207576bbb888"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Z", "\[Equal]", 
  RowBox[{
   RowBox[{
    RowBox[{"clist", "[", 
     RowBox[{"[", "1", "]"}], "]"}], "*", 
    RowBox[{"(", 
     RowBox[{
      RowBox[{"Flatten", "[", 
       RowBox[{"Array", "[", 
        RowBox[{
         RowBox[{
          RowBox[{"Satisfaction1", "[", 
           RowBox[{"[", 
            RowBox[{"#1", ",", "#2"}], "]"}], "]"}], "&"}], ",", 
         RowBox[{"{", 
          RowBox[{"1000", ",", "100"}], "}"}]}], "]"}], "]"}], ".", 
      RowBox[{"result1", "[", 
       RowBox[{"[", 
        RowBox[{";;", 
         RowBox[{"10", "^", "5"}]}], "]"}], "]"}]}], ")"}]}], "-", 
   RowBox[{
    RowBox[{"clist", "[", 
     RowBox[{"[", "2", "]"}], "]"}], "*", 
    RowBox[{"Total", "@", 
     RowBox[{"result1", "[", 
      RowBox[{"[", 
       RowBox[{
        RowBox[{
         RowBox[{"10", "^", "5"}], "+", "1"}], ";;"}], "]"}], 
      "]"}]}]}]}]}]], "Input",
 CellChangeTimes->{{3.80267782082086*^9, 3.802677865142725*^9}, 
   3.802678243699313*^9},
 CellLabel->"In[83]:=",ExpressionUUID->"79247903-d46d-4706-9f32-953212441ec4"],

Cell[BoxData[
 RowBox[{"Z", "\[Equal]", "3615.512935594838`"}]], "Output",
 CellChangeTimes->{
  3.802677867898905*^9, 3.802677921188162*^9, 3.802677996371459*^9, 
   3.80267820665026*^9, 3.8026782446376867`*^9, {3.8026782783039713`*^9, 
   3.802678294575876*^9}},
 CellLabel->"Out[83]=",ExpressionUUID->"c9b40ec1-db7a-4b03-9058-d178ed9dc25f"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["DVD\:5206\:914d\:8868\:683c", "Subsection",
 CellChangeTimes->{{3.80267840655516*^9, 
  3.802678417366325*^9}},ExpressionUUID->"08a1a8b0-3f31-4d29-b73a-\
1edb56628f50"],

Cell[BoxData[
 RowBox[{
  RowBox[{"data", "=", 
   RowBox[{"Transpose", "@", 
    RowBox[{"Partition", "[", 
     RowBox[{
      RowBox[{"result1", "[", 
       RowBox[{"[", 
        RowBox[{
         RowBox[{
          RowBox[{"10", "^", "5"}], "+", "1"}], ";;"}], "]"}], "]"}], ",", 
      "25"}], "]"}]}]}], ";"}]], "Input",
 CellChangeTimes->{{3.802678890389103*^9, 3.8026788948130093`*^9}},
 CellLabel->"In[87]:=",ExpressionUUID->"059e599f-8b88-4dff-8cce-52bc463c3e20"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{"Grid", "[", 
  RowBox[{
   RowBox[{"Prepend", "[", 
    RowBox[{
     RowBox[{
      RowBox[{
       RowBox[{"Riffle", "@@", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"#", "+", 
           RowBox[{"{", 
            RowBox[{"0", ",", "25", ",", 
             RowBox[{"25", "*", "2"}], ",", 
             RowBox[{"25", "*", "3"}]}], "}"}]}], ",", 
          RowBox[{"data", "[", 
           RowBox[{"[", "#", "]"}], "]"}]}], "}"}]}], "&"}], "/@", 
      RowBox[{"Range", "[", "25", "]"}]}], ",", 
     RowBox[{"Flatten", "[", 
      RowBox[{"ConstantArray", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"\"\<DVD\:7f16\:53f7\>\"", ",", "\"\<DVD\:6570\:91cf\>\""}], 
         "}"}], ",", "4"}], "]"}], "]"}]}], "]"}], ",", 
   RowBox[{"Background", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"None", ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Lighter", "[", 
         RowBox[{"Yellow", ",", ".9"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"White", ",", 
          RowBox[{"Lighter", "[", 
           RowBox[{
            RowBox[{"Blend", "[", 
             RowBox[{"{", 
              RowBox[{"Blue", ",", "Green"}], "}"}], "]"}], ",", ".8"}], 
           "]"}]}], "}"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Dividers", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Darker", "[", 
         RowBox[{"Gray", ",", ".6"}], "]"}], ",", 
        RowBox[{"{", 
         RowBox[{"Lighter", "[", 
          RowBox[{"Gray", ",", ".5"}], "]"}], "}"}], ",", 
        RowBox[{"Darker", "[", 
         RowBox[{"Gray", ",", ".6"}], "]"}]}], "}"}], ",", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"Darker", "[", 
         RowBox[{"Gray", ",", ".6"}], "]"}], ",", 
        RowBox[{"Darker", "[", 
         RowBox[{"Gray", ",", ".6"}], "]"}], ",", 
        RowBox[{"{", "False", "}"}], ",", 
        RowBox[{"Darker", "[", 
         RowBox[{"Gray", ",", ".6"}], "]"}]}], "}"}]}], "}"}]}], ",", 
   RowBox[{"Alignment", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"{", 
      RowBox[{"Left", ",", "Right", ",", 
       RowBox[{"{", "Left", "}"}]}], "}"}], "}"}]}], ",", 
   RowBox[{"Frame", "\[Rule]", 
    RowBox[{"Darker", "[", 
     RowBox[{"Gray", ",", ".6"}], "]"}]}], ",", 
   RowBox[{"ItemStyle", "\[Rule]", "14"}], ",", 
   RowBox[{"Spacings", "\[Rule]", 
    RowBox[{"{", 
     RowBox[{"Automatic", ",", ".8"}], "}"}]}]}], "]"}]], "Input",
 CellChangeTimes->{{3.802678502845148*^9, 3.8026786103610773`*^9}, {
  3.802678963114621*^9, 3.802678964539771*^9}},
 CellLabel->"In[89]:=",ExpressionUUID->"193b1a4a-1de1-44f7-b802-2bcf262437be"],

Cell[BoxData[
 TagBox[GridBox[{
    {"\<\"DVD\:7f16\:53f7\"\>", "\<\"DVD\:6570\:91cf\"\>", "\<\"DVD\:7f16\
\:53f7\"\>", "\<\"DVD\:6570\:91cf\"\>", "\<\"DVD\:7f16\:53f7\"\>", "\<\"DVD\
\:6570\:91cf\"\>", "\<\"DVD\:7f16\:53f7\"\>", "\<\"DVD\:6570\:91cf\"\>"},
    {"1", "50", "26", "60", "51", "64", "76", "52"},
    {"2", "55", "27", "52", "52", "55", "77", "53"},
    {"3", "52", "28", "50", "53", "59", "78", "59"},
    {"4", "59", "29", "58", "54", "55", "79", "49"},
    {"5", "47", "30", "58", "55", "58", "80", "59"},
    {"6", "52", "31", "60", "56", "59", "81", "59"},
    {"7", "52", "32", "52", "57", "65", "82", "46"},
    {"8", "60", "33", "55", "58", "46", "83", "43"},
    {"9", "56", "34", "49", "59", "51", "84", "50"},
    {"10", "54", "35", "65", "60", "62", "85", "54"},
    {"11", "57", "36", "58", "61", "56", "86", "47"},
    {"12", "58", "37", "55", "62", "62", "87", "57"},
    {"13", "51", "38", "56", "63", "63", "88", "44"},
    {"14", "61", "39", "52", "64", "65", "89", "56"},
    {"15", "50", "40", "52", "65", "59", "90", "59"},
    {"16", "56", "41", "71", "66", "63", "91", "64"},
    {"17", "61", "42", "62", "67", "54", "92", "56"},
    {"18", "55", "43", "56", "68", "57", "93", "56"},
    {"19", "60", "44", "54", "69", "63", "94", "54"},
    {"20", "69", "45", "63", "70", "60", "95", "61"},
    {"21", "57", "46", "56", "71", "57", "96", "47"},
    {"22", "60", "47", "56", "72", "63", "97", "57"},
    {"23", "65", "48", "53", "73", "51", "98", "60"},
    {"24", "56", "49", "55", "74", "49", "99", "48"},
    {"25", "53", "50", "56", "75", "54", "100", "52"}
   },
   AutoDelete->False,
   GridBoxAlignment->{"Columns" -> {Left, Right, {Left}}},
   GridBoxBackground->{"Columns" -> {{None}}, "Rows" -> {
       RGBColor[1., 1., 0.9], {
        GrayLevel[1], 
        RGBColor[0.8, 0.9, 0.9]}}},
   GridBoxDividers->{"Columns" -> {
       RGBColor[0.2, 0.2, 0.2], {
        RGBColor[0.75, 0.75, 0.75]}, 
       RGBColor[0.2, 0.2, 0.2]}, "Rows" -> {
       RGBColor[0.2, 0.2, 0.2], 
       RGBColor[0.2, 0.2, 0.2], {False}, 
       RGBColor[0.2, 0.2, 0.2]}},
   GridBoxFrame->{
    "ColumnsIndexed" -> {{{1, -1}, {1, -1}} -> RGBColor[0.2, 0.2, 0.2]}},
   GridBoxItemSize->{"Columns" -> {{Automatic}}, "Rows" -> {{Automatic}}},
   GridBoxItemStyle->{"Columns" -> {{14}}, "Rows" -> {{14}}},
   GridBoxSpacings->{"Columns" -> {{Automatic}}, "Rows" -> {{0.8}}}],
  "Grid"]], "Output",
 CellChangeTimes->{3.802678968548719*^9},
 CellLabel->"Out[89]=",ExpressionUUID->"aa74b08a-9233-4400-b06f-1f6bd3022f7c"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
},
WindowSize->{1130, 963},
WindowMargins->{{Automatic, 274}, {-80, Automatic}},
PrintingCopies->1,
PrintingPageRange->{1, Automatic},
TaggingRules->{"TryRealOnly" -> False},
Magnification:>1.5 Inherited,
FrontEndVersion->"12.1 for Mac OS X x86 (64-bit) \
(2020\:5e743\:670820\:65e5)",
StyleDefinitions->"Default.nb",
ExpressionUUID->"40bdb2e1-9eec-4f66-95ae-f09d7c408e52"
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[583, 22, 307, 5, 146, "Title",ExpressionUUID->"f1798c44-2035-4c05-b39c-b16b6ebcb817"],
Cell[893, 29, 373, 6, 53, "Text",ExpressionUUID->"169ad272-b2a0-47bb-83af-fd7b95654f53"],
Cell[CellGroupData[{
Cell[1291, 39, 223, 4, 101, "Section",ExpressionUUID->"bfd328f7-39e2-4093-92cc-5941a6561773"],
Cell[CellGroupData[{
Cell[1539, 47, 172, 3, 81, "Subsection",ExpressionUUID->"78c18447-de78-4a17-ac8e-d9ec0b44319c"],
Cell[1714, 52, 2391, 35, 364, "Text",ExpressionUUID->"459547db-bd5e-40a4-8379-9533194fec92"]
}, Open  ]],
Cell[CellGroupData[{
Cell[4142, 92, 190, 3, 81, "Subsection",ExpressionUUID->"2dc74b02-d3a4-47d1-9d23-d093c1c49956"],
Cell[4335, 97, 879, 14, 157, "Text",ExpressionUUID->"fdc90e4f-9b9e-4ea5-9c38-b969d7715432"]
}, Open  ]],
Cell[CellGroupData[{
Cell[5251, 116, 148, 3, 81, "Subsection",ExpressionUUID->"0c4f3cb5-55b8-4147-bcae-4142beef34b4"],
Cell[5402, 121, 168, 3, 53, "Text",ExpressionUUID->"00d2f1fd-c639-428e-b3be-adb97ce74fe0"],
Cell[5573, 126, 520, 12, 137, "Input",ExpressionUUID->"f73601e3-4bb6-4faf-be69-2215bf22495e"],
Cell[6096, 140, 169, 3, 53, "Text",ExpressionUUID->"a674e36c-7e36-47d3-8af4-12bfb5a9b1fc"],
Cell[6268, 145, 458, 11, 46, "Input",ExpressionUUID->"e75274c6-c9eb-4532-a744-9e00180f23c8"],
Cell[6729, 158, 174, 3, 53, "Text",ExpressionUUID->"d2fdc0a4-f015-49f9-91c6-f3d8fc9d3d18"],
Cell[6906, 163, 578, 15, 66, "Input",ExpressionUUID->"5514e1fe-ca1c-4018-b1b8-d4c4a44ed189"],
Cell[CellGroupData[{
Cell[7509, 182, 203, 3, 67, "Subsubsection",ExpressionUUID->"9c3764a0-ba50-4e0c-8182-4be4aaf76437"],
Cell[7715, 187, 209, 3, 53, "Text",ExpressionUUID->"8373b782-5fb6-4bee-9822-45e61aa1537b"],
Cell[7927, 192, 2064, 62, 125, "Text",ExpressionUUID->"ae9e54cd-3f0d-4d1e-b652-6376c88573aa"],
Cell[9994, 256, 622, 16, 66, "Input",ExpressionUUID->"85f82609-22c3-434f-97e8-61126e9df14c"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[10665, 278, 222, 4, 81, "Subsection",ExpressionUUID->"561a7ba4-fe7e-4a8e-85c7-9bafe441a284"],
Cell[10890, 284, 449, 9, 88, "Text",ExpressionUUID->"633a15db-d382-4f39-acf4-38962e18ec7c"],
Cell[11342, 295, 168, 3, 53, "Text",ExpressionUUID->"cdfc313f-f87b-4709-95f5-d88c2c4fee7a"],
Cell[11513, 300, 561, 19, 101, "Input",ExpressionUUID->"51e58e25-99b9-45aa-8c0b-fd1fbe72ef33"],
Cell[12077, 321, 166, 3, 53, "Text",ExpressionUUID->"5b0746ec-7372-4024-b0db-a12a6e811137"],
Cell[12246, 326, 344, 11, 107, "Input",ExpressionUUID->"c0017bfd-3f70-4998-82bc-ee4edcb9960a"],
Cell[12593, 339, 319, 10, 110, "Input",ExpressionUUID->"f64283dc-d3e5-49ab-9ec0-9968cee71fde"],
Cell[12915, 351, 346, 11, 51, "Input",ExpressionUUID->"f4cc5645-37ad-4632-8b75-cd8e3d7a2ba1"],
Cell[CellGroupData[{
Cell[13286, 366, 192, 3, 67, "Subsubsection",ExpressionUUID->"cb4c4ad6-52b5-46f6-be85-b3ddff621437"],
Cell[13481, 371, 4717, 109, 421, "Input",ExpressionUUID->"d6a8d43b-54d7-46ef-9161-2aaa3f4bbf22"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[18247, 486, 178, 3, 81, "Subsection",ExpressionUUID->"6569e985-c97c-40fa-bc05-f03d8d47d878"],
Cell[18428, 491, 252, 4, 53, "Text",ExpressionUUID->"c8bbb686-f527-402b-81fc-67d1d274f82d"],
Cell[CellGroupData[{
Cell[18705, 499, 664, 19, 120, "Input",ExpressionUUID->"b640bfe1-0269-471f-9283-f1849e854245"],
Cell[19372, 520, 282, 7, 64, "Output",ExpressionUUID->"ecd1edfc-25c9-45b7-80f3-f74e184cfb59"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[19703, 533, 215, 4, 81, "Subsection",ExpressionUUID->"ac46fcbc-17e7-4cc9-a606-e73d97a64194"],
Cell[CellGroupData[{
Cell[19943, 541, 4683, 119, 765, "Input",ExpressionUUID->"314139b8-d190-423b-b2bf-4f02930e9a2c"],
Cell[24629, 662, 2958, 64, 1119, "Output",ExpressionUUID->"ed98dd0e-938a-498a-8baf-588fbe54bd8c"]
}, Open  ]]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[27648, 733, 221, 4, 101, "Section",ExpressionUUID->"81171a93-f0bc-4c89-ad9e-270061b8cc03"],
Cell[27872, 739, 701, 12, 122, "Text",ExpressionUUID->"bc735145-d566-4e58-8500-0fef2f2bc677"],
Cell[28576, 753, 198, 3, 53, "Text",ExpressionUUID->"82443ee0-cb05-49bf-9535-0a0a7275862f"],
Cell[28777, 758, 1948, 59, 111, "Input",ExpressionUUID->"d6047b9d-0bb5-46bf-b34c-69256b254b60"],
Cell[30728, 819, 573, 15, 66, "Input",ExpressionUUID->"af2290ab-07ad-453d-a326-15f8fdf8828e"],
Cell[31304, 836, 144, 3, 53, "Text",ExpressionUUID->"f40b7c90-6aad-4d97-b6f4-a597dc04576e"],
Cell[31451, 841, 775, 25, 101, "Input",ExpressionUUID->"15aa3e11-18a2-4473-9a69-262c830894b2"],
Cell[32229, 868, 166, 3, 53, "Text",ExpressionUUID->"dded381b-57a6-4ccb-9838-568230a287e7"],
Cell[32398, 873, 308, 10, 101, "Input",ExpressionUUID->"f9735bd8-e7cc-41e6-a636-d99c86ac95d0"],
Cell[32709, 885, 344, 11, 98, "Input",ExpressionUUID->"ea390613-ccf4-46e0-a228-8f457797b649"],
Cell[33056, 898, 292, 9, 47, "Input",ExpressionUUID->"fb23ed6d-17e8-4347-aece-8e1a7ac6cfb3"],
Cell[33351, 909, 277, 9, 51, "Input",ExpressionUUID->"3b7c3624-5d5f-46fa-9446-930c8e3e7705"],
Cell[33631, 920, 346, 11, 51, "Input",ExpressionUUID->"3487b384-2bcc-452d-af69-8662bbbf3488"],
Cell[33980, 933, 269, 8, 45, "Input",ExpressionUUID->"713672c5-40e7-4a0c-8901-cea9c2b7fbe3"],
Cell[CellGroupData[{
Cell[34274, 945, 166, 3, 81, "Subsection",ExpressionUUID->"e0844a20-db2c-4da0-af66-8dce7aab2bf4"],
Cell[34443, 950, 748, 20, 120, "Input",ExpressionUUID->"d9cf0bad-e0a3-4ea7-927a-3c567d44a503"],
Cell[35194, 972, 787, 24, 151, "Input",ExpressionUUID->"cb49e17a-0c4f-4aa6-b865-70336789ba93"],
Cell[35984, 998, 7227, 166, 591, "Input",ExpressionUUID->"ff87d402-b50a-4690-b492-4aa285e1c6f9"]
}, Open  ]],
Cell[CellGroupData[{
Cell[43248, 1169, 156, 3, 81, "Subsection",ExpressionUUID->"5cd0933a-bf53-4687-aa2d-d2f7d737aee0"],
Cell[43407, 1174, 206, 4, 53, "Text",ExpressionUUID->"d6087b1d-ea2b-4c20-8e4b-207576bbb888"],
Cell[CellGroupData[{
Cell[43638, 1182, 1084, 33, 151, "Input",ExpressionUUID->"79247903-d46d-4706-9f32-953212441ec4"],
Cell[44725, 1217, 343, 6, 52, "Output",ExpressionUUID->"c9b40ec1-db7a-4b03-9058-d178ed9dc25f"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[45117, 1229, 174, 3, 81, "Subsection",ExpressionUUID->"08a1a8b0-3f31-4d29-b73a-1edb56628f50"],
Cell[45294, 1234, 474, 13, 66, "Input",ExpressionUUID->"059e599f-8b88-4dff-8cce-52bc463c3e20"],
Cell[CellGroupData[{
Cell[45793, 1251, 2667, 74, 453, "Input",ExpressionUUID->"193b1a4a-1de1-44f7-b802-2bcf262437be"],
Cell[48463, 1327, 2539, 51, 962, "Output",ExpressionUUID->"aa74b08a-9233-4400-b06f-1f6bd3022f7c"]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}, Open  ]]
}
]
*)

